00300		TITLE MSSIO ; ********* JUN 8,74 *********
00700		INTERNAL GETFI2,FASTI2
00800	
01400	
01650		CH3←13
01800	
01900	DEFINE ERROR (MSG)
02000	<	JSA 16,.ERROR
02100		JUMP [ASCIZ/MSG/
02200	]
02300	>
02400	
02500	REGS:	BLOCK 20
06700	
06800	;CALL GETFI2(<FILE>)
06900	
07000	GETFI2:	0
07100		MOVE 0,@0(16)
07200		MOVEM 0,FILNAM
07300		JSA 16,INTFIZ
07400		MOVE 0,[SIXBIT/DMD/]
07500		MOVEM 0,DIR+1
07600		JSA 16,LKUP
07700		SKIPA
07800		JRST GETF3
07900		SETZM DIR+1
08000		JSA 16,LKUP
08100		0
08200	GETF3:	JRA 16,1(16)
08300	
08400	LKUP:	0
08500		SETZM DIR+2
08600		SETZM DIR+3
08700		LOOKUP CH3,DIR
08800		JRA 16,0(16)
08900		JRA 16,1(16)
09000	
09100	INTFIZ:	0	;INITS DSK FOR INPUT
09200		MOVEI REGS
09300		BLT REGS+3
09400		INIT CH3,17
09500		SIXBIT/DSK/
09600		0
09700		ERROR <CAN'T INIT DSK!>
09800		JRST INTF4
09900	
10000	DIR:	BLOCK 4
10100	
10200	
10300	;CALL FASTI2(<ARRAY>,<NO. WORDS>)
10400	
10500	FASTI2:	0
10600		HRRZ 0,0(16)
10700		SUBI 0,1
10800		MOVEM 0,COM
10900		MOVN 0,@1(16)
11000		HRLM 0,COM
11100		INPUT CH3,COM
11200		STATZ CH3,740000
11300		0
11400		JRA 16,2(16)
11450	
12000	COM:	OCT 0,0
12200	BLKNUM:	0
12300	
18800	
19600	INTF4:	MOVE 0,FILNAM#
19700		MOVEM 0,FN#
19800		MOVE 1,[POINT 7,FN]
19900	INTF3:	MOVE 2,[POINT 6,DIR]
20000		SETZM DIR
20100		MOVEI 3,5
20200	INTF1:	ILDB 0,1
20300		CAIN 0," "
20400		JRST INTF2
20500		SUBI 0,40
20600		IDPB 0,2
20700		SOJG 3,INTF1
20800	INTF2:	HRLZI REGS
20900		BLT 3
21000		JRA 16,0(16)
21100	
31400	.ERROR:	0
31500		OUTSTR [ASCIZ/?
31600	/]				;MAKE SURE HE CAN SEE HIS ERROR
31700		OUTSTR @(16)		;OUTPUT ERROR MESSAGE
31800		CALLI 1,12		;LET USER CONTI2UE
31900		JRA 16,1(16)
39100		END